a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


ef ILE®*1D**F ORUDFRL 


FFFFFFFFFE 000000 RRRRRRRR UU UU DDDDDDOD FFFFFFFFFF RRRRRRRR LL 

FFFFFFFFFF 000000 RRRRRRRR UU UU DDDDDDDD FFFFFFFFFF RRRRRRRR LL 

FF 00 OO RR RR UU UU DD DD FF RR RR LL 

FF 00 OO RR RR UU UU DD DD FF RR RR 

FF OO RR RR UU UU DD DD FF RR RR LL 

FF 00 OO RR RR UU UU DD DD FF RR RR LL 

FFFFFFFF 00 00 RRRRRRRR UU UU DD DD FFFFFFFF RRRRRRRR LL 

FFFFFFFF 00 O00 RRRRRRRR UU UU DD DD FFFFFFFF RRRRRRRR LL 

FF 00 00 RR RR UU uu CD DD FF RR RR LL 

FF 00 OO RR RR UU UU DD DD FF RR RR LL 

FF 00 00 RR RR UU UU DD DD FF RR RR LL coee 
FF O RR RR UU UU DD FF RR RR LL eeee 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD FF RR RR LLLLLLLLLL eeee 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD FF RR RR LLLLLLLLLL eee 


cr 

rc 
etme 
—e 
be 
od 


L 
LLLLLLLLLL 
LLLLLLLLLL 
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oe 
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font 
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FORSSUDF _RL FORTRAN List-directed input, UDF Level 16-Sep-1984 00:47:40 1 Bliss -32 v4.0 Page 1 50 

14-Sep-1984 12:32:51 PORRTLe SRE FORUDFRL. “835, 37 (1) ‘ 
; 1 001 MODULE FORSSUDF _RL CST ITY G" pogT Ran List-directed input UDF level’ ; 
; é 00¢ [DENT ' File: FORUDFRL.B32 Edit: SBL1025 : 
3 4 004 1 BEGIN ; 
; 5 0005 1! : 
3 § ie : | SOARES ORRIN Rt, REPRE Ee <= ree ‘ 
: :¢ ‘ 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * ; 
; 4 0009 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. . ° 
3 10 0010 | is ALL RIGHTS RESERVED. * : 
3 ‘® * . 
: \§ Botg 1 !* THIS por rwane is FURNISHED UNDER A LICENSE AND MAY BE USED AND copree » ; 
..>% 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ‘ 
; (16 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ° 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
; i Bate : ? TRANSFERRED. * ° 
4 '® * e 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | : 
; $3 BOS : :* CORPORATION, * ° 
3 ie * a 
3 § $098 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * : 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; 0025 1 !* * ; 
; @ 0026 1 !* * : 
: e7 0027 1 laeeeeeeerere ree ee eee eee Ree RAR AA EET HA HEAT KATA A AKA ARARKAKAe eee K ete eee ee ee : 
; 0028 1! . ; 
; #66 0029 1 : 
me 0030 1 !++ ; ; 
; Hh 0031 1 ! FACILITY: FORTRAN support Library - not user callable : 
: mm itt 1! : 
3; 0033 1 | ABSTRACT: | ; 
; O34 0034 1! ‘ 
. = 0035 1! This nodule implements FORTRAN read List-directed I/0 statement ‘ 
; £6 0036 1! at the UDF level of abstraction. This module calls the List- ; 
; * sit 44 : directed record routines at the record level to read a record. | : 
; 33 s't84 ' ; ENVIRONMENT: User access mode, reentrant AST level or not : 
; rt sh : AUTHOR: Jonathan M. Taylor, CREATION DATE: 5-SEP-77 : 
; «643 00435 1 ! MODIFIED BY: : 
: ae 0044 1! : 
3.6 (45 0045 1 ! (Previous edit history deleted. SBL 9-June-1981) 3 
; £6 0046 1 ! 1-001 - Update version number and copyright notice. JBS 16-NOV-78 3 
; «647 0047 1 ! 1-002 - Make SKIPBLANKS retuen 3- velvg. to keep the BLISS : 
:; 648 048 1! compiler happy: : 
; «649 049 1 ! 1-003 = Change REQUI file” Rm from FoR .-s o OTS... JBS 06-DEC-78 : 
; 0050 1 ! 1-004 - Change module name to FORSSUDF_RL to aares with file mane JBS 11-DEC-78 3 
s «#3 0051 1 ! 1-005 = Change ISBSA_BUF_PTR, BUF_END, BUF_BEG, BUF “ 9 is, P 08-Jan-79 ; 
3 26 B026 1! 1-006 = Fix bug with omitted values after Fepeats R ete 89 SBL be -Jan-79 
5; 055 1 ! 1-007 - Use 32-bit oféresses for exgernat S. S 27- SAN-19 
; «654 054 1 ! 1-008 - Add support for G, H, Allow voll. case na ben 
; 39 O5> 3! hosters. a e Logical fields fetch second word. 
; 0056 1! SBL 21-Mar-7 
ee, 0057 1 ! 1-009 = Fix convert table lookup for G and bigger. SBL 19-Apr-79 


—s 
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lList-directed input, UDF Level 18-Sep-1984 00:47:4 X=11 Bliss-32 V4.0-74 Page 2 fo 
. 1o28eb= 138s 93:95:89 «— EPOante SReSronubeaL .035.1 * 1- 
1-010 = Remove reference to MTHS$GFLOTJ. we Bien obvi 
1-011 = Force integer conversion of repea SBL 4-May-1979 
1-012 = Remove references to MTHSDFLOTJ, MTHSJIDIN: and MTHSSNG 


A side effect of ste. edit is that we ¢ nae check for overflow 
when converting D to F. JBS 26 -JUN-1 
© at CONVERTTYPE table for gotety es F, FC, DC and GC. SBL 13-Jul-1979 
- Change to use local CONSBLOCK. Do numeric repeat counts by 
resetting the buffer pointer to the beginning of the snynerte 
constant. Make byte variables signed. SBL 18-Jul-19 
15 - if file is not sequential or ant ation give error 
mixed file access modes”. eB. $-Oct-19 
16 = Change 1-015 7 weee not sequential access. gd bia 3 
17 = Remove access done in FORS$I0_BEG. sete -Dec-19 
18 = Move evigs ACTUAL COUNT into the ats bed in sinleleartas of the 
mest LISS com 9 ompiler, which will require it to be there. 
-AUG- 
1-019 - 3 ange (oval routine CONVERTTYPE to global reyt tog 
FORSSCVT_ TYPE so that NAMELIST can use it. SBL gB-auguet- -1980 
1-020 - Yee new Fa{ lost ing input conversion routine, OTSSCVT_i_F. 
“Apr 
1-021 = Allow BU datatype to be the same as B. Eliminate differentiation between integer 
and real constant type except where necessary, since the test wasn't guaranteed. SBL 9-June-1981 
1-022 = Signal Access Violations directly, do not change them into I/0 Syntax 
Error. DGP 15-Jan-1982 
ieee VAX.VMS V3.0 
i 1-023 = Signal FORS_LISIO_SYN if first character in numeric field is ')'. This 
: error appe ars not only in the VAX code, but in the OTS' .. for PDP-11 
: FORTRAN IV, FORTRAN IV=PLUS and FORTRAN-77! SBL 7-Sept-1982 
! 1-024 = JSB to REC-level routines throu ° dispatch table. Signal 
: FORS_INPCONERR instead of ORS. ISIO_SYN where appropriate. Use 
: Pr ologue file. SBL 27-Apr-1 
1-025 = Don't blank-pad character rs 
' 


if the constant Length was 
greater than 255. SPR 11 


he 
7769" *S3L 17-June-1983 
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FORSSUDF _RL FORTRAN List-directed input, UDF Level 16-Sep-1984 00:47:40 AX-11 Bliss-32 V4.0-74 Page 3 
1-025 1e8eb-19be 2:32:31 ERORRTL SRESFORUDFAL «89951 * 2 

93 09 : . 

oh 09 ! PROLOGUE FILE: 

95 094 : 

9 095 

44 é3 REQUIRE "RTLIN:FORPROLOG'; ! FORTRAN definitions 

99 ' 


; TABLE OF CONTENTS: 


Wwr—oO 


FORWARD ROUTINE 
' UDF routines 


FORSSUDF_RLO : JSB_UDFO NOVALUE, 
FORSSUDF-RL1 : CALC_CCB NOVALUE, 
FORSSUDF-RLO : JSB_ODF9 NOVALUE, 
! routines used by FORSSUDF_RLO and FORSSUDF_RL1 


3 1 

$ 1 

; 1 

3 1 

3 0 1 

; 0162 1 

; 0165 1 

; 10 the 1 

: 10 165 1 

; W 0166 1 

; 10 0167 1 

; 104 B1e8 1 

; 105 1S? 1 

: 106 0170 1 

: 107 0171 ~«#1 

: 108 HE 1 

: 109 017 1 ! 

s 110 0174 #1 ‘ 

39% 0175 «1 GETCONST : CALL_CCB, 

§ 118 0176 #1 FORSSCVT_TYPE, 

s 11 0177 +1 LCL_HANDCER ' Local handler for conversion routine 
> 114 0178 1 GETFIELD : CALL_CCB 

: 115 0179 1 SKIPBLANKS : CACL_CCB, 

s 16 0180 1 DELIM : CALL_CCB; 

a Bie 0181 1 

. oe Bias 7 3 

3; 119 018 1 ! MACROS: 

; 120 0184 1! 

aa Fg | 0185 1 

s 122 0186 1 CRO 

s 125 m0187 1 THISCHAR = 

> 126 m 0188 1 (IF .CCBCLUBSA_BUF_PTR] GEQA .CCBCLUBSA_BUF_END] 
; $2 m0189 1 THEN 

: 126 m0190 1 - 

; 127 ™ 0191 1 ELSE 

: 128 B13 1 . (.CCBCLUBSA_BUF _PTR])<0,8>) %, 

3 198 m 019 1 MEXTCHAR = 

s 150 m 0194 1 atti 

> 131 M0195 1 CCBLLUBSA_BUF_PTR) = .CCBCLUBSA_BUF_PTR] + 1; 
: 13 4 9136 1 THISCHAR 

.. os 019 1 END %; 

: 134 0198 1 

s 935 0199 1! 

3 138 8509 1 ! EQUATED SYMBOLS: 

ae. Sar 01 1! 

: 138 3606 1 

: 139 0203 1 LITERAL . ber 
: 140 0204 1 K_NULL = 0, ' types of constants which may appear in input record 
3: «141 BEd? 1 K_LOG = 1, 

3 146 0 Bg 1 K_INT = 

: 14 020 1 KTREAL = $, 

3s 146 0208 1 K-COMP = 4, 

> 145 09 1 K-CHAR = 5, 

: 146 10 1 K_TAB = 9; ' ASCII TAB 
3: «147 11.=«71 

: 148 0 \¢ 1! 

; #149 021 1 ! OWN STORAGE: 


Be Oe Re Oe Be Oe Oe Oe Oe Be Oe Oe Oe Oe Se Oe Oe SH Oe Bee BH He SHS SH Oe SH Se Se Oe SH Oe Oe we BH OH Oe Oe Oe Be OH Se Se SESE SH Oe Oe we OHH Oe BH ee Se Oe 


i=] 
z 
er 
e 
4 
wn" 
@ 
- 


SN NAA AAA FAAAAMMMMIVIMNNIII 
WHO OONOUEWN—OOONOULSWNH—O 


en . _ r— 
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FORTRAN List-directed input, UDF level 18-Sep-1984 0092780 AX-11 Bliss-32 V4.0-74 Page 4 
14-Sep-1984 7:32:51 FORRTL.SRCJFORUDFRL.B32;1 (2) 

0214 1! 
0215 1! NONE 
8 18 1! 

17 1°! EXTERNAL REFERENCES: 
0218 1! 
8 19 1 

QO 1 EXTERNAL ROUTINE 
0221 1 FORSS VM, ' Allocate virtual memory 
0 ¢ 1 FORSSFREE_VM : NOVALUE, ' Deallocate virtual memory 
0 1 FORSSSIGNAL_STO : NOVALUE, ! Signal fatal error 
0 : : a LIB$SIG_TO_RET, ! Convert a signal to a return code 
6 6 1! conversion routines 
0227 1 !- 
8 8 1 OTSSCVT_TL_L, 

9 1 OTSSCVT_TIL, 
0230 1 OTSSCVT_T_F, 
02 11 OTS$SCVT-T"D. 
0 ; 1 OTS$CVT_T_G, 
02 1 OTSSCVT_T_H; 
0234 1 
0235 1 EXTERNAL 
0236 1 FORSSAA_REC_PRO: VECTOR, ! Self-relative arrays of 
0237 1 FORSSAA_REC_PR1: VECTOR; ! REC-level routine addresses 


— 
& 
re 
"s 
a 
zDD 
rc 


mrororororrrrnn OO 


0D 09 09 C9 09 C9 09 09 09 09 SI NI NIN NS NS NSN NOAA AAA AO OAMMIMMIMIMIUIVMIUIVI ES EEE LLEEAA DD 


DONA UVES WN -"OVOONOW 
pee 
wr DOONAN WIN OS OO NOUN EWN 0 ODNO UE WN SO OODNOAU EW SC ODNOAUE WOOO oa 


SSSSS SAPS eS Ree Se eee ss 


WR OC DCOnNOufwn— 


Seat 


PIPIPOPOPOPIPYNYPONININDPYNINININONYNSNPYNINPYININPIPPYPYIPOPINPOPOPOPOPNoNy 


POPINOMIARINININODY — st OO Os s3ssss 


—OODNO UE WN OC OONOUS WN -O0On 
POPORoRoROMORONORONONONONONOPONONONY 2 = 2 es 


eee eee elolololololololololololol ol ole ol olelol ol ol ol oo) ooo] = Binsin 


POPDPOPGPINGNNNININPIPYNININPINDINIPINIPININININININININININININDD 2 9 9 9 9 I 


Wr 


RAN Topnaivectes input, UDF level 
UDF RL 


OH SSR PG SEH 


ZSBTTL'FORSSUDF_RLO' 
GLOBAL ROUTINE FORSSUDF_RLO : JSB_UDFO NOVALUE = 


++ 
! FUNCTIONAL DESCRIPTION: 


Perform UDF level read List-directed 1/0 initialization. 
Initialize module ‘‘own’’ storage in the ISB. 
Call record level processor to get first input record. 
CALLING SEQUENCE: 
JSB FORSSUDF_RLO () 


FORMAL PARAMETERS: 


NONE 
IMPLICIT INPUTS: 
CCB Pointer to current logical unit block (LUB) 
IMPLICIT OUTPUTS: 
ISB$V_SLASH 0: no slash seen in this record 
ISB$V_LIS_HEAP 0: no heap storage allocated for string constant 
ISB$W_LIS_REP 0: no repeat count yet seen 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


EXTERNAL REGIS 


ISTER 
CCB : REF 


TE 
SFORSCCB_DECL; 


'¢ 
! Initialize module own storage used between calls to FORSSUDF_RL1. 


' Call record level routine to read the first record. 


JSB_RECO (FORSSAA_REC_PRO + .FORSSAA_REC_PRO [.CCB CISBSB_STIM_TYPE) - 


V4.0-74 


FORRTL.SRCJFORUDFRL.B32;1 


Page 


5 
(3) 
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FORSSUDF _RL FORTRAN List-directed input, UDF level 1h-se -1984 00:47:40 AX-11 Bliss-32 V4.0-74 Pa 6 
1-025 FORSSUDF _RL , : eRe) a Peet See tht ty ter eae 9 03) 


5 334 0393 : ISBSK_FORSTTYLO + 1)); 
3 96 END; 
; -TITLE FORSSUDF_RL FORTRAN List-directed input, UDF le 
. IDENT \1-025\ 
.EXTRN FORSSGET_VM, FORSSFREE_VM 
-EXTRN FORSSSIGRAL_ STO 
-EXTRN LIBSSIG_TO_RET, OTSSCVT_TL_L 
“EXTRN OTSSCVT-TI-L, Orsscvt T7F 
-EXTRN OTSSCVT_T_B, OTSSCVT_T 
EXTRN OTSS$CVT_T-H, FORSSAA_REC_PRO 
-EXTRN FORSSAA_REC_PR1 
.PSECT _FORSCODE,NOWRT, SHR, PIC,2 
96 AB 10 8A 00000 FORSSUDF_RLO:: | 
BICB2 #16, -106(CCB) ; 0286) 
8D AB B4 0004 CLRW = = 119 (CCB) : 0287 
96 AB go BF BA 0007 BICB2 #128, -106(CCB) : 0288 
50 FF71 CB 9A 0000C MOVZBL -143(CCB), R > 0295 
50 0000000060040 D0 00011 MOVL FORSSAA_REC_PRO[ROJ, RO : 0294 
0000000060040 17 00019 JMP FORS$AA_REC~PROLRO]J : 


; Routine Size: 32 bytes. Routine Base: _FORSCODE + 0000 


: 234 


0297 1 
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. 
- 
. 
o 
o 
7 
- 
. 
a 
. 
. 
. 
2 
. 
Oo 
. 
o 
. 
. 
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FORSSUDF _RL FORTRAN List-directed input, UDF level 16-Sep-1984 00:47:40 AX-11 Bliss-32 V4.0-74 Page 7 
1-025 FORSSUDF_RL1 7 1o783p- 1382 93:35:39 EPSanre SReSronubr aL 043; 9° 4) 
; $ 0 38 1 ZSBTTL*FORSSUDF_RL1' 
; + ! GLOBAL ROUTINE FORSSUDF_RL1 (ELEM_TYPE, ELEM_SIZE, ELEM_ADR, FC_FLAG) : CALL_CCB NOVALUE = 
: 9 01 1 !+4 
3 m4 8 : } FUNCTIONAL DESCRIPTION: 
; ri} 06 1! Return the next input value to the user I/0 List element. 
s 246 0305 1! The value obtained from the input record is converted to 
: 244 Bene 1! the type of the List element. 
; 245 0307 1-! 
; 246 0308 1 ! CALLING SEQUENCE: 
; 247 B308 1! 
3 rt Baty : CALL FORSSUDF_RL1 (elem_type.rlu.v, elem_size.rlu.v, elem_adr.wx.r C,fc_flag.rb.vJ) 
; 50 bai¢ 1 ! FORMAL PARAMETERS: 
3 €) 0315 1! 
3 6 0314 1! ELEM_TYPE.rlu.v Type code of user 1/0 List element 
; 2 0315 1! ELEM_SIZE.rlu.v Size of user 1/0 List element 
3 254 0316 1! ELEM_ADR.wx.r Address of user 1/0 List element, 
3 225 0317 1! x = b,w,l,bu,wu,lu,f,c,fc,dc,gc.g,h or t. 
; 256 0318 1! CFC_FLAG] if present, then: 
: @o7 0319 1! 0 - real part of COMPLEX pie 
; 258 0320 1! 1 = imaginary part of COMPLEX type 
3 +44 0321 1! | 
: 60 B35¢ 1 ! IMPLICIT INPUTS: 
3 26) 0325 1! } ; 
3 $06 b35¢ 1 OTS$$A_CUR_LUB Pointer to current logical unit block (LUB) 
3; 264 0326 i ! IMPLICIT OUTPUTS: 
3 469 0327 1! 
; 266 0328 1! ISB$W_LIS_HEAP repeat count 
3 @or $194 1! ISB$B_LIS_CTYPE type of constant found 
; 268 0330 1! ISBSA_LIS_ STR address of saved repeated string 
; 269 0331 1! ISB$V_HEAP on if heap storage allocated by module | 
5 $70 O33§ : I1SB$V_SLASH on if slash seen (ignore all future calls) | 
3 gle 0334 1 ! ROUTINE VALUE: 
; 273 0335 1 ! COMPLETION CODES: 
3 se 0336 1! 
3; 275 0337 1! NONE 
; 276 Os3s5 3 ! 
: 77 0339 1 ! SIDE EFFECTS: 
; 278 0340 1! 
: 279 0341 1! SIGNALS FOR$_LISIO_SYN if a bum repeat count or an error 
; 280 O38 1} occurs when Converting the constant from external form to 
; 6281 345 1! the type of the List element. 
: ag 0344 1! 
; 28 0345 1 !-- 
3; 6284 0346 1 
; 85 347 BEGIN 
: 286 348 
5 87 349 EXTERNAL REGISTER 
; 288 B30 CCB : REF SFORSCCB_DECL; 
3; 289 351 
: 290 8326 MAP 
3 91 35 ELEM_ADR : REF VECTOR; 
; 292 0354 


K 6 
FORSSUDF _RL RAN List-directed input, UDF Level 16-Sep-1984 00:47:40 AX-11 Bliss-32 V4.0-74 P 
1=025 UDF _RLI , 1eneeea abe Voikorey | LAManr shes raeubtar oss. 1 age 43 
BUILTIN 
ACTUALCOUNT; 


OCAL 
CONSBLOCK : VECTOR (4, LONG], 
CONST_PTR, ! Pointer to beginning of constant 
CHARCONS : VECTOR (256, BYTE); 


+ 
ju we're being called to get the second part of a COMPLEX number, 


WAIWIINonononononoers 
ooono 
S2FSFS 


Nate et 


‘ 
i 
! Just return since the call for the first part actually got 
' both parts! 


ee noe () GTR (FC_FLAG = ELEM_TYPE)/%UPVAL 


IF .FC_FLAG THEN RETURN; 
'¢ 


i If a slash has been seen previously, just return as rest of record | 
is ignored. 


IF .CCB CISBSV_SLASH] THEN RETURN; | 


+ 
If no currently active repeat count, find the next constant. 


IF .CCB CISBSW_LIS_REP) EQL 0 
THEN 

BEGIN 

'¢ 


! Find a constant. If a string constant is seen, have GETCONST 
store it in stack-local CHARCONS. 


MMPPNPNNN 2 SS Sumer 


WN 0 ODNO UNE WD 0 OOBNOUESWN SO OONOUSWN—OVOO~ 


SKIPBLANKS (); 
CONSBLOCK (0) °= CHARCONS 
CCB CISB$B_LIS_CTYPE) = 


'¢ 

' If the next character after the constant is a star then the 

! constant is really a repeat count. Make sure the repeat count 
is legal and store away in the ISB for future calls. 


: . pass ing address of string area 
GETCONST (CONSBLOCK, 1, .ELEM_TYPE); 


WWAAAIN WIAA A ANA WW AAI AANA 


WANN WWW 


eer 


WWA.AA AAAI 
, 


IF THISCHAR EQL 2C‘*' 
THEN 


SOOOOCOSCOCOOOOCSOOOOOSOOSOOSOSSOSOSOSSSSOOSSCCCCOCOCOCOCOCOOOCOCOOOOCOOCCOOCOOCOOCOOO Am 


BEBE EEE EE S&B AWWA AWA NAA 
PER ME FAIA WNW AIAN IAI PoP NoNoPoNo Non NoNnyNPoNny 


4 N 

45 CB CLUBSA_BUF_PTR] = .CCB CLUBSA_BUF_PTR] + 1; 

46 CCB CISBSW-LIS-REP = (IF .CCB ISB$B"LIS_CTYPE] NEQ K_INT OR .CONSBLOCK [0] LEQ 0 THEN 
348 CCB C1SB$B_ERR_NO] = FORSK_LISIO SYN; 


6 
List-directed input, UDF level 16-Sep-1984 00:47:4 AX-11 Bliss-32 V4.0-74 P 9 
ODF Ret e pu eve a ep- 1 ee: s$-32 V age 


TRAN 
SSUDF 14-Sep-1984 FORRTL.SRCJFORUDFRL.B32;1 (4). 
3 0 tig 6 END 
; 1 415 4 ELSE .CONSBLOCK (0]); 
3 g 414 4 
; 415 4 + 
; 4 21g 4 i Now that repeat count is taken care of, get the ‘'real'’ 
; 355 417 4 _constant! 
3 28 218 4 : 
3 «3 419 4 
; 58 0420 4 CONSBLOCK (OJ = CHARC 
; 359 0421 4 PTR = .CCB CLU ' Save address of constant in input 
; rs be § 2 CCB CYSB$B_LIS_ erybe: Nhe pray: (CONSBLOCK, 1, -ELEM_TYPE); 
H o¢ 0424 4 
; 0425 4 "it we just got a string constant (preceded by a repeat count), 
; 364 0426 4 ' then the string must be stored to preserve it between calls 
; 365 pest 4 i to this routine. 
; 366 0428 4 ie 
; He oh 4 4 
; 368 0430 4 IF .CCB CISB$B_LIS_CTYPE] EQL K_CHAR | 
: $88 0431 4 THEN 
s 570 ah] 5 BEGIN 
; 371 0433 5 
3 33§ 0434 5 LOCAL 
3; 0435 5 : 
3 $e 0436 5 
; 375 0437 5 ORSSGET_VM (256); 
; 376 0438 5 CHSM vE (255; CHARCONS, .T); 
; 377 0439 § B CISBSA_LIS_STR] = <1: 
: 378 0440 5 CCB CISBSVILISIHEAP ="1; | 
s sry 0441 5 
; 380 paee 5 
; 381 0443 4 END | 
; 382 0444 ; ELSE 
; 383 0445 CCB CISB$W_LIS_REP] = 
; 384 0446 3 
; 385 0447 3 END 
; 386 0448 § ELSE 
; 387 0449 | 
; 388 0450 2 + 
; 389 0451 2 ! This is pass 2 or more on a repeat count. If the constant 
: 390 Be 36 § i yes not character, call GETCONST to reconvert the value. 
; «#391 045 i erwise, et the address of the saved string in 
: 336 0454 ; CONSBLOCK C0 
3 Hs 455 
3 394 456 
: 395 457 IF .CCB CISB$SB_LIS_CTYPE] NEQ K_CHAR 
; $09 0458 THEN 
; 397 0459 
; 398 0460 CONS = ,CCB CL Lug BSA_B ! Save address again 
; 399 0461 CCB t1sese. Lis_c CTYPE] =" Bur const (CONSBLOCK, 0, .ELEM_TYPE); 
; 400 046 END 
3; 401 Bee ELSE 
; 402 464 CONSBLOCK (0) = .CCB CISBSA_LIS_STRI; 
> 404 beg IF .CCB CISB$B_LIS_CTYPE] NEQ K_NULL 
; 405 46 THEN 
; 406 0468 


mM 6 
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et * FORSSUDF Rit . 14- 300-1 3be 9959544 FORRTL. BR CJFORUDFRL. 83 37 ’ (4) 

3 ret 193 IF NOT FORSSCVT_TYPE (.CCB CISBS$B_LIS_CTYPE], CONSBLOCK, ; 
; 409 471 IF ACTUALCOUNT () GTR (FC_FLAG = ELEM_TYPE)/2%UPVAL ; 
; 410 hf THEN : 
; 411 47 : 
: tig 474 SELECTONE -ELEM_TYPE OF ; 
; 41 475 SET : 
: 414 Be78 ; 
; 415 047 CDOSCSK_DTYPE FJ : ‘ 
: 416 0478 DSTSK_DTYPE FC; : 
: ate 280 (DSCSK_DTYPE DJ : 
3 219 a DSCSK_DTYPE DC; : 
; 420 ot 3 
; 421 048 CDSCS$K_DTYPE GJ : 3 
i; 4 ¢ 0484 DSTSK_DTYPE GC; : 
: 424 0486 ; 
; 425 0487 § ELSE ‘ 
; 426 0488 -ELEM_TYPE, .ELEM_ADR, .ELEM_SIZE) 3 
> 427 0489 2 : 
; 428 0490 § EN ; 
; rt 0491 CCB CISB$B_ERR_NO] = FORSK_INPCONERR; | : 
; 430 0492 2 : 
; 431 049 § + ; 
; 432 0494 iif repost count goes to zero deallocate heap if there is one > 
3; 433 0495 2 : _and skip to next ‘'significant’’ character. : 
> 434 0496 2 ; 
; 435 0497 2 3 
; 436 0498 2 IF (CCB CISB$W_LIS_REP] = .CCB CISB$W_LIS_REP] - 1) EQL 0 ; 
: 437 0499 ¢ THEN ; 
; 438 0500 BEGIN : 
; 439 0501 3 : 
3; 440 Bane 3 LOCAL : 
> (441 0503 3 C; ! Local character storage 3 
; ry 0504 3 : 
3 (44 0505 3 IF .CCB CISB$V_LIS_HEAP) . 
> 444 0506 3 THEN : 
3; «6445 0507 4 BEGIN ; 
; 446 0508 4 FORSSFREE VM (256, j°c8, c1seeA, LIS_STR]); : 
3; 447 bap 4 CCB CISB$V_LIS_HEAP) = ; 
; 448 0510 3 END; ‘ 
3; 449 0511 3 ’ 
; 450 bat¢ ; + : 
3 6451 051 i Skip over blanks and tabs until a real character is seen : 
: oe6 0514 3 i or end-of-record is reached. This puts us in a good position : 
3 645 0515 ; i for the next call. ‘ 
3; (454 0516 in : 
; 455 0517 3 ; 
; 456 0518 = THISCHAR; . 
3; 457 bei, 3 
; «6458 520 WHILE .C EQL %C* * OR .C EQL K_TAB DO : 
: 725 033 C = NEXTCHAR; : 
; 461 05 : IF .C EQL *,* THEN CCB CLUBSA_BUF_PTR] = .CCB CLUBSA_BUF_PTR) + 1; ‘ 
3 466 b2se : 
; 46 0525 END ; 
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-FORSCODE + 0020 


Routine Base: 


383 bytes, 
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1 


0538 


wow www SS hl el 


IF .CCB CISB$V_LIS_HEAPJ 
THEN 


BEGIN 
FORSSFREE VM (256, .CCB CISBSA_LIS_STRI); 
CB CISBSV_LIS_HEAP) = 0; 


Nm 
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1-025 FORSSUDF _RLS r 12-808- 132 90595588 FORRTL.SRCJFORUDFRL.B32;1 . (5) 
: 478 9372 1 ZSSBTTL'FORSSUDF_RLY' 
; 9 Toe : GLOBAL ROUTINE FORSSUDF_RL9 : JSB_UDF9 NOVALUE = 
; 481 b2t8 1 !44 
3 8 B2t7 ! FUNCTIONAL DESCRIPTION: 
> 484 gece 72 List directed input UDF termination: 
; iH Bete : } If any heap storage was allocated by RL1, deallocate it. 
; 487 0548 1 ! CALLING SEQUENCE: 
: 488 0549 1! 
: 4489 0550 1! JSB FORSSUDF_RLO () 
; 490 0551 1! 
; 491 b23¢ 1 ! FORMAL PARAMETERS: 
; 49 0553 1! 
; #49 0554 1! NONE 
3 494 0555 1! 
; 4495 0556 1 ! IMPLICIT INPUTS: 
; 496 0557 1! 
; 497 0558 1! CCB Adr. of LUB/ISB/RAB 
: 498 0559 1! CCBCISB$V_LIS_HEAP] 1 if storage currently allocated 
; ba Beet | CCBLISBSA_LIS_STRJ address of allocated storage 
: $01 b20¢ 1 ! IMPLICIT OUTPUTS: 
: 502 0563 1! 
: 03 0564 1! CCBCISB$V_LIS_HEAP] 0 
: 504 0565 1! 
: 05 0566 1 ! ROUTINE VALUE: 
: 06 0567 1 ! COMPLETION CODES: 
s 507 0568 1! 
; 508 0569 1! NONE 
; 509 0570 1! 
; 10 0571 1 ! SIDE EFFECTS: 
> «511 0572 1! 
; 512 0575 1! NONE 
s S53 0574 1! 
: 514 0575 1 !-- 
s S15 0576 1 
: 16 0577 2 BEGIN 
3; 517 0578 2 
; #518 0579 3 EXTERNAL REGISTER 
; 19 0580 CCB : REF SFORSCCB_DECL; 
: 520 0581 2 
s Sel Bene 
s See 058 
3s 3es 0584 
: 524 0585 2 
3 5 0586 3 
; 6 05 § 
3 7 B2 
2 8 5 1 


Morr 


END; 


96 AB 95 00000 FORSSUDF_RLO:: 


Be Oe Oe Be Be Be Be Be Be Oe Be Be Be Se Se Se Be Be Be Oe Be Se Se Se Bee ase we Be SHH Se Oe Oe Oe ee Oe Oe Oe Oe Be Se Se Oe Se Se Oe ee Oe Oe Oe Se ee Oe Oe Be ee 


Se ee he ee 


TSTB = = 106 (CCB) : 0582. 
18 9000 BGEQ ~Ss«1$ : | 
84 AB pp 000 PUSHL 1 4 (CCB) + 0585 
7E 0100 8F 3C 00008 MOVZWL #256, -(SP) : 
000000006 00 02 FB 90000 CALLS #2, FORSSFREE_VM : 
96 AB 80 8F BA 00014 BICB2 #128, -106(CCB) > 0586 
05 00019 1$: RSB ; 


; Routine Size: 26 bytes, Routine Base: _FORSCODE + 019F 
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SCVT_TYPE 14-Sep-1984 :32:5 FORRTL.SRCJFORUDFRL.B32;1 (6) 
TSBTTL'FORSSCVT_TYPE’ 
GLOBAL ROUTINE FORSSCVT_TYPE (IN_TYPE, IN_BLOCK, OUT_TYPE, OUT_BLOCK, OUT_SIZE) = 
lee 
Functional description: 
Convert the constant recovered from the input record to the 
type the user requested. If the input and ours types 
are both string constant, copy the string to tne users area. 
' Formal parameters: 
IN_TYPE.rx.v {L*4, I1*4, REAL, CMPLX, CHAR} 
IN_BLOCK.ril.r address of the input constant 
OR if the input is a char constant, then 


RIPIPIPOP POPPIN PINIPPININININININININININIMPINPININININININIDS —9 2 9 I 


she address of a pointer to the char constant. 

BU, WU, L . . W, L. ’ ° a G, H or T) 
address of output area in user program 
size of users output area (used for strings only) 


OUT_TYPE.rl.v 
OUT_ADR.wy.r 
OUT_SIZE.rl.v 


' Returned value: 


i 
i 
i 
i 
i 
! 
! 
i 
i 
i 
i 
i 
i 
i 
i . 

returns success(1) or failure(0) when conversion error occurs. 
le 


BEGIN 

MACRO 
B_0 = 
yep 8el i, ! first byte (signed) 
0-0.16.1 z, ' first word (sign extend) 
0716,16,0 %, ! second word 
0:0, 32.0 %, ' first longword 
4,0,32,0 x, ' second longword 
8:4,52.0 %, ! third lLongword 
12,0,32,0 %, ' fourth longword 


: fields used to access flag bits in FLAG 
LOAD_FIRST_WORD = 


0,7,0 %, ! 000001 
LOAb SEC_WORD = 

1,7,0 &, ' 000002 
Load SEC_LONG = 

2.7,0 %, ' 000004 
CONV_J_10‘D = 
0,3,7,0 27 ' 000010 
CONV_6 TOU = 
0,4,1,0 27 ' 000020 
CONV_6 TO'F = 
0,5,7,0 2&7 ' 000040 
CONV_J 10°] = 
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-~_— 
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FORSSUDF _RL FORTRAN List-directed input, UDF level 16-Sep-1984 00:47:40 AX-11 Bliss-32 V4.0-74 Page 18 
et FORSSCVT_TYPE F 12280871 38e 99795:8) PORRTL  SRESFORUDFAL 64951 . (6) 
; 645 705 BEGIN 
> 646 7 $ CHSCOPY (255, ..IN BLOCK, %C' *, .OUT_SIZE, .OUT_BLOCK); 
; 647 ? RETURN 1; 
; 648 iS : 
; 649 gf 9 
3 o20 pry IF .IN_TYPE EQL K_CHAR OR .OUT_TYPE EQL DSCSK_DTYPE_T THEN RETURN 0; ! type mis-match! 
; 626 Bo§ & FLAGS C[L_0] = .FLAG_TAB C(.OUT_TYPE - DSCSK_DTYPE_BU = (IF .OUT_TYPE GEQU DSCSK_DTYPE_G THEN 
; $3? oF BSCS$K_DTYPE_G = DSCSK_BTYPE_DC - 1 ELSE OY)#4 + (.IN_TYPE = K_LOG)); 
; 655 0715 \+ 
; 628 0716 ! Zero the third and fourth longwords of T so that storing short values 
; 65 0717 ! into longer ones works. 
; 658 0718 le 
; 659 0719 
; 660 8759 T fg) = 0; 
; 661 0721 2 T CL_3) = 0; 
; 66 b7S§ § 
; 66 072 IF .FLAGS CLOAD_FIRST_WORDJ ! load first word and sign extend 
; 664 0724 2 THEN 
; 665 0725 2 T CL_0] = .IN_BLOCK CW_0]; 
; 666 0726 2 
; 667 0727 2 IF .FLAGS CLOAD_SEC_WORD) ! load second word 
; 668 0728 2 
; 669 1444 2 T CWw_1] = .IN_BLOCK CW_1]; 
; 670 0730 2 
; 671 0731 2 IF .FLAGS CLOAD_SEC_LONG] ! load third and fourth words 
; OF Ore 2 N 
; 67 0733 2 T CL_1] = .IN_BLOCK (L_1]; 
i; 674 0734 2 
; 675 0735 IF .FLAGS CLOAD_SEC_QUAD) ! load second quadword 
; 676 0736 THEN 
; 677 0737 BEGIN 
; 678 0738 ; fl. ] = .IN_BLOCK gli 
; 679 0739 T CL_3) = .IN_BLOCK (L_3] 
; 680 0740 2 ; 
; 681 0741 2 
; 682 to} 2 IF .FLAGS CCONV_J_TO_DJ ' convert J to D 
; 683 074 ¢ THEN 
; 684 0744 BEGIN 
; 685 0745 ; 
; 686 0746 BUILTIN 
; 687 0747 CVTLD; 
; 688 ores 
; 689 749 CVTLD (T CL_0), T CL_0)); 
: 690 0750 END; 
; 691 0751 : : 
3; 69 tae IF .FLAGS CCONV_L_TO_FDGH] ! Convert Logical to floating 
; 69 075 THEN 
; 694 0754 BEGIN 
; 695 BF 32 
; 696 738 '¢ , 2 “ 
; 697 75 ! If the logical falue is true, set the floating value to -1. 
; 698 758 ' Otherwise it is already zero. 
; $99 759 te 
:; 700 760 
; 701 0761 IF .T CL_0) 


7 
FORSSUDF _RL FORTRAN List-directed input, UDF level 18-Sep-1984 00:92 780 AX-11 Oi legate V4.0°74 
1-025 FORSSCVT_TYPE 14-Sep-1984 12:32:51 FORRTL.SRCJFORUDFRL.B32;1 
SS 76 THEN 
: 798 res 3 1 {1,03 = 
; 704 764 4 BEGIN 
3 £09 765 4 
; 706 766 4 SELECTONE .OUT_TYPE OF 
: 707 767 & SET 
; 708 768 4 
: 709 769 4 CDSCSK_DTYPE_F, DSCSK_DTYPE_D, DSCSK_DTYPE_FC, DSCSK_DTYPE_DC] : 
: 710 0770 4 %x*C080'; 
co 20% 0771 4 
3 ne 146: 4 COSCSK_DTYPE_G, DSCSK_DTYPE_GCJ : 
3; 7i 0773 4 %X*C010'; 
3; 716 0774 4 
: 715 0775 4 CDOSCSK_DTYPE_H) : 
; 716 b776 4 %x*C001'F 
: 717 0777 4 TES 
3; ris 0778 4 
; 719 0779 END; 
; 720 0780 
; rs) 0781 T (L_1) = 
op: ¢ ores 3 T 33 = 0; 
3 fe 078 T (L_3) = 0; 
s 7e6 0784 END; 
3 Teo 0785 
: 726 0786 IF _ .FLAGS CCONV_D_TO_JJ ! convert D to J 
3 Fer 0787 THEN 
; 728 0788 BEGIN 
: 729 0789 
; 730 0790 BUILTIN 
; gol 0791 CVTDL; 
3 rag 14d: ; 
3; 079 IF ( NOT CVTDL (T CL_0], T CL_0])) THEN RETURN 0; 
; 734 0794 ; 
3; 735 0795 T CL_1] = 0; 
; 736 0796 2 END; 
s ror 0797 2 
; 738 0798 2 IF .FLAGS CCONV_D_TO_FJ ! convert D to F (round) 
: 739 0799 HE 
; 740 0800 BEGIN 
3 (74) 0801 
3 ree Bane BUILTIN 
; 74 080 CVTDF; 
3: 744 0804 
> 745 0805 IF ( NOT CVTDF (T CL_OJ, T CL_0])) THEN RETURN 0; 
; 746 0806 
: 747 0807 T CL_1) = 0; 
: 748 0808 END; 
3: 749 0809 ; 
; 750 0810 IF FLAGS CCONV_J_TO_1] ! convert longword to word (signed) 
: 731 0811 THEN 
3 36 pats 
; ay ai? IF .1 CO, 15, 1, 1] NEQ .T CO, 16, 16, 1] THEN RETURN 0; 
: 755 BS IF .FLAGS CCONV_J_T0_8) ! convert longword to byte (signed) 
3 736 318 THEN 
; 758 318 If .1 CO, 7, 1, 1] NEQ .T CO, 8, 24, 1] THEN RETURN 0; 
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FORSSUDF RL FORTRAN List-directed input, UDF level 1b-5¢ $ep-1984 AX-11 Bliss-32 V4.0-74 Page 22. 
eit t ells FORSSCVT_TYPE , 1ex808-138E 99:95:29 «FANG Bhisge ae Ve On rts oe 36 
0 02 AE 32 O00E CVTWL = T#2, ‘RO : 0813. 
50 01 AE 8; O f F CMPV #7, #1, T#1, RO F; 
4A F BNEQ 27§ ; 
52 9 FB 20$:  TSTB FLAGS + 0815 
D 18 OOOFA BGEQ ; 
50 01 AE 18 0 EE OOOF EXTV 40, #24, T+1, RO + 0818 
50 6E 01 FC 19 (MPV soa#?. #1, 'T, RO : 
3 1 BNEQ 27 3 
04 52 8 gi 0109 21$: BBC #8, FLAGS, 22$ > 082 
10 BC oe 0 00100 MOVE T, @OUT BLOCK : 082 
04 09 £1 00111 228 #5, FLAGS, 23$ : 082 
10 BC GE BO 00115 MOVW  T, @OUT BLOCK : 082 
07 A £1 00119 238 B #io, FLAGS. 24$ ; 082 
10 BC 10 10 02 AE FO 0011D INSV #2, #16, #16, @OUT_BLOCK : 083 
32 OB €1 00124 246%: BBC ni FLAGS, 25$ + 083 
5 10 AC DO 00128 MOVL  OUT_BLOCK, RO + 083 
04 AO 04 AE 00 0012¢ MOVL 1447 j : 
09 52 OD £1 00131 25$: BBC #13. FLAGS, 26$ + 083 
50 10 AC 00 00135 MOVL § OUT_BLOCK, RO + 0839 
08 AO 08 AE 7D 00139 MOVQ T+8, Z 
50 01 DO 0013E 26$: MOVL #1, RO > 0843 | 
04 00141 RET : 
50 D4 00142 278 CLRL ~— RO > 0844 | 
04 00144 RET ; | 
0000 00145 28$: «WORD Save nothing > 0616, 
7E D4 00147 CLRL < (SP) : 
5E DD 00149 PUSHL ; 
7E 04 AC 7D 00148 MOVQ Sap -(SP) : 
O000v CF 03 FB OO14F CALLS #3, LCLHANDLER : 
04 00154 RET : 
; Routine Size: 341 bytes, Routine Base: _FORSCODE + 0232 
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FORSSUDF _RL FORTRAN List-directed input, UDF level 16-Sep-1984 7:40 AX-11 Bliss-32 V4.0-7 Page 23 
1-025 GETCONST ° 18-808 - 1 3b 99: $3: 751 PORRTLeS Rei ORUDFRL .639; 1 ’ Ast 
Te 8 45 1 XSBITL'GETCONST® ; 
; ree r ‘one ROUTINE GETCONST (CONSBLOCK, STRINGFLAG, ELEM_TYPE) : CALL_CCB = ‘ 
; «789 o8c8 1 !++ : 
3 ey B3e8 ! FUNCTIONAL DESCRIPTION: ; 
; 79 0851 1! Obtain a value from the external record using the format conversion : 
3; $826 1} routines. The conversion chosen is dependent on the contents of the ; 
3 794 853 1! field of the record: ‘ 
; 795 0854 1} LOGICAL if the first char is ‘'T', ‘t', ‘F', 'f* or the first ; 
; 796 0855 1 | character is ‘'.* and the second is any of the above. : 
s rer baee 1! cot x st the titst” “per is ‘(' : 
; 798 0857 1: CHAR if first char is : 
; 799 0858 1} FLOATING otherwise. ; 
; 800 0859 1! : 
: 801 0860 1 ! Rs bit case is made if the next character after the value ° 
; 80 0861 1! in which case it is a repeat count and is always ; 
; 80 pee 1 Senveeded to integer. ‘ 
3; 804 0863 1! ; 
; 805 0864 1 | FORMAL PARAMETERS: : 
; 806 0865 1! | ; 
; 807 0866 1! CONSBLOCK.mb.r Two longword block in which to store : 
; 808 0867 1! the constant found. : 
; 809 0868 1 | STRINGFLAG 0 if caller wishes not to have strings : 
; 810 0869 1! returned to him. : 
; «4811 0870 1! 1 if caller wants string returned: : 
: 812 0871 1: ogg 8 a det. contains the address of : 
; 813 0872 1! byte area to store the string. : 
; «B14 0873 1! ELEM_TYPE The éetelne oi the destination. 3 
; «815 0874 1! : 
; 816 0875 1°! IMPLICIT INPUTS: | F 
; 817 0876 1! : 
; 818 0877 1: : 
; 819 0878 1 | IMPLICIT OUTPUTS: ; 
; 820 0879 1! ; 3 
3; $e 0880 1 | If a string constant is seen and STRINGFLAG is one, the : 
; 822 0881 1 | string will be stored gterting at the address specified in : 
3 Ses ety ‘7 CONSBLOCK(0J. The string will always be 255 bytes long (blank 3 
; 824 0885 1! padded). : 
; 825 0884 1 | : 
; 826 0885 1 ' ROUTINE VALUE: | : 
; 827 0886 1! ; 
; 828 0887 1 | The type of the constant seen is returned (as a small number) 3 
5 S62 bees 1! as the routine value. ; 
; 830 0889 1! : 
; «6831 0890 1 | COMPLETION CODES: 3 
3 $36 0891 1 | 3 
; 83 0086 1! NONE 3 
: 834 0893 1! 3 
; 6835 0894 1 | SIDE EFFECTS: ‘ 
3 $39 0895 1! : : : 
: 837 0896 1! SIGNALS FORSLISIO_SYN if a conversion error occurs. 3 
; 838 0897 1! 3 
; 839 0898 1 !- 3 
; a9 0899 1 3 
3 841 0900 § BEGIN 3 
; 842 0901 : 


N 7 
FORSSUDF _RL FORTRAN List-directed input, UDF level 16-Sep-1984 00:47:40 AX=11 Bliss-32 V4.0-74 Page 24 
1658 GETCONST , 1orgeh7138t 99:95:8) «| HRSaR Te SRE aronUbrAL 03951 a 55 
; 843 306 EXTERNAL REGISTER ; 
> B44 4 CCB : REF SFORSCCB_DECL; ‘ 
; 845 904 ; 
H r¢ 905 P ‘ 
; «84 2n8 CONSBLOCK : REF VECTOR (4); ‘ 
; 848 9 ; 
; 849 443 LOCAL ; 
; 850 90 ba yp E : BYTE ! local type of constant seen ‘ 
; 851 0910 DSC : BLOCK (8, BYTE); : 
3 b2¢ 0911 : 
; «685 aig + ; 
: Sze 91 i The first character indicates what type of constant this is. a 
; «855 914 i Perform the appropriate action. : 
; 856 915 ie 3 
; 857 916 3 
; 858 0917 SELECTONE THISCHAR OF 3 
; 859 0918 SET 3 
; 860 0919 3 
; 861 $359 + : 
3 BO¢ 0921 i Complex constant : 
; 86 b35¢ ie 3 
; 864 092 
; 865 0924 Cxc'(") : 
; 866 0925 BEGIN 
; 867 0926 3 
; 868 0927 3 CAL 
; 869 0928 3 t -CONSBLOCK : VECTOR (4), 
; 870 849 3 B_CTYPE BY E, 
; 871 0930 3 B_ERR_ FLAG : BYTE; 
3 a76 0931 3 
; 87 B336 3 '+ ; 
; 874 0933 3 ' Set error flag to 0, skip over the ‘('. 
; 875 0934 3 - 
; 876 0935 3 
; 877 0936 3 B_ERR_FLAG = 0; 
; 878 0937 3 tre ECUBSA _BUF PTR] = .CCB CLUBSA_BUF_PTR] + 1; 
; 879 0938 3 
; 880 0939 ; '¢ 
; 881 0940 i Skip over any leading blanks and commas. If a comma is seen 
: Hy) 0941 3 i this is an error. 
; #88 O35 3 te 
; 884 094 ; 
; 885 0964 IF DELIM () THEN B_ERR_FLAG = .B_ERR_FLAG + 1; 
; Hg 946 ; 1+ ; 
; 888 0947 i Get the next constant from the input record. Strings 
; 889 0948 ; i are not allowed at this time! 
; 890 bah '- 
; «891 950 
; &9 0951 B_CTYPE = GETCONST (L_CONSBLOCK, 0, .ELEM_TYPE); 
; 489 O326 
3 894 95 '¢ 3 
; «4895 0954 ; i J GETCONST found an error, increment our error counter 
; 896 Baez i otherwise convert the constant just read into a REAL 
; 897 956 i quantity and store in CONSBLOCKLO). 
; 898 0957 ie 
; 4899 0958 


8 
FORTRAN List-directed input, UDF Level 18-sep-19 4 90:40 wee og PS 3 MeFi 1 
GETCONST 14-Sep-1984 12:32:5 FORRTL.SRCJFORUDFRL.B32;1 
; 900 959 IF .B_CTYPE EQL K_NULL 
; 901 960 THEN 
; 90 961 B_LERR_FLAG = .B_ERR_FLAG + 1 
; 90 $366 ELSE 
; 904 096 
; She dove if NOT FORSSCVT_TYPE (.B_CTYPE, L_CONSBLOCK, .ELEM_TYPE, CONSBLOCK [0]) 
; 907 0966 B_LERR_FLAG = .B_ERR_FLAG + 1; 
; 908 0967 
; 909 0968 + 
; 910 0969 ' Must be a comma here. 
; 911 0970 le 
3 a 0971 
; 91 3444 IF NOT DELIM () THEN B_LERR_FLAG = .B_ERR_FLAG + 1; 
> 914 097 
; #915 0974 ‘4+ 
: 916 0975 ! Get the imaginary part and convert it_to a REAL quantity. 
>; 917 0976 ' Store the result into CONSBLOCK(1 or 2]. 
:; 918 0977 ; !< 
; 919 0978 
; 920 0979 3 B_CTYPE = GETCONST (L_CONSBLOCK, 0, .ELEM_TYPE); 
: ey 0980 3 
3 Vee 0981 ; IF .B_CTYPE EQL K_NULL 
; 925 098 THEN 
> 924 0983 3 B_ERR_FLAG = .B_ERR_FLAG + 1 
; 925 0984 3 LSE 
; 926 0985 3 
: Per 0986 3 IF .ELEM_TYPE NEQ DSCSK_DTYPE_H 
; 928 0987 3 THEN 
; 368 0988 4 BEGIN 
; 930 0989 4 
3 33) 344 : IF NOT FORSSCVT_TYPE (.B_CTYPE, L_CONSBLOCK, .ELEM_TYPE, 
; otr 344 ; IF .ELEM_TYPE EQL DSCSK_DTYPE_F THEN CONSBLOCK (1) ELSE CONSBLOCK [2]) 
s 959 0994 4 THEN 
; 936 0995 4 B_ERR_FLAG = B_ERR_FLAG + 1; 
; 937 0996 4 
: 938 0997 3 END; 
; 939 0998 3 
; 940 0999 3 '¢ 
3; 941 1000 ' Skip blanks here. Better not be a comma! 
: 94 1001 od 
; 946 100 
3 944 100 IF DELIM () THEN B_ERR_FLAG = .B_ERR_FLAG + 1; 
: 945 1004 
; 946 1005 1+ : 
; 947 1006 ' Check for the required ')' 
: 948 1007 le 
: 949 1008 
; 950 1009 IF .(.CCB CLUBSA_BUF_PTR])<0, 8> EQL %C*)' 
3 DS 1010 THEN 
s 95 1011 CCB CLUBSA_BUF _PTR] = .CCB CLUBSA_BUF_PTR] + 1 
; 95 1olg ELSE 
; «954 101 B_ERR_FLAG = .B_ERR_FLAG + 1; 
; 4955 1014 
; 956 1015 14 
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FORSSUDF _RL FORTRAN List-directed input, UDF level 16-Sep-19 4 009720 AX-11 a a V4.0-74 Page $6 
1-025 GETCONST 14-Sep-1984 2:32:51 FORRTL.SRCJFORUDFRL.B32;1 (7) 
$ et ! 16 If any errors occured return NULL else COMPLEX type. 
; 959 1018 
: 960 1019 RETURN ((IF .B_LERR_FLAG EQL 0 THEN K_COMP ELSE 
; 961 1020 6 BEGIN 
; 96 1021 6 CCB CISBSB_ERR_NOJ = FORSK_INPCONERR; 
; 96 10 g 6 K_ NULL 
: 964 10 $ END 
; 965 1024 »); 
; 966 1025 END; 
; 967 1026 
; 968 1027 ee 
; 969 1028 ! Logical constant. ; 
: 14! 19 3 Point descriptor DSC to the field and set type to LOG. 
s 97 1031 
; 97 I9e6 Lao t's ae ee Oe e's eee 2 
; 974 103 8 
; 975 1034 GETFIELD (DSC); 
3; 976 1035 CTYPE = K_LOG; 
3; 977 1036 2 : 
; 978 1037 2 
: 979 1038 § '+ 
; 980 1039 ' Possible logical constant. Check second character. 
: «981 1040 2 != 
; 1041 
; 98 1986 is 28 
; 984 104 BEGIN 
; 985 1044 ; CTYPE = GETFIELD (DSC); 
: 986 1045 
; 987 1046 3 IF .DOSC CDSC$W_LENGTH] GEQ 1 
; 988 1047 3 
; 989 1048 4 BEGIN 
; 990 1049 4 
; 991 1050 4 LOCAL 
; 992 1051 4 My ' second character 
: pak 1036 ? ADR : REF BLOCK (1); ' address of second character 
; «995 1054 4 ADR = 1 + DSC CDSCSA_POINTER]; 
: 996 1055 4 C = .ADR CO, 0, 8, 01; 
; 997 1056 4 
; 998 1057 4 SELECT .C OF 
; 999 1058 4 SET 
: 1000 1059 4 
; 1001 1060 4 caer? Beas, SEs? ees a 
: noe 1061 4 CTYPE = K_LOG; 
; 100 1066 4 S; 
3: 1004 1063 4 
; 1005 1064 4 END 
: 1006 1065 4 
; 1007 1906 END; 
: 1008 106 
; 1009 1068 ¢ 
; 1010 1062 ' Slash seen. 
; 1011 1070 ' Set V_SLASH and return NULL value seen. 
: + 3 4 1071 '- 
; 101 1072 
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RAN List-directed input, UDF level ihese 1984 47:40 AX-11 Bliss-32 V4.0-74 Page 28 
NST 14 ety fi att FORRTL.SRC FOhUSEAL 6351 ° (3 


IF .C LSS 0 
THEN 


(FORSSAA_REC_PR1 + 


1 
RSSAA_REC_PR1 C.oC8 CISBSB_STTM_TYPE] - 
$k FORSTTYLO + 1]); 


IF .C EQL 2C**'* 
THEN 


BEGIN 

C = NEXTCHAR; 

IF .C NEQ %C°''* THEN EXITLOOP; 
END; 


~ “a 
NAVE WN (OO OONOUES Wh 
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+ 
If the buffer just overflowed, SIGNAL LISIO_SYN | 
If the buffer overflowed sometime previous fo this 
iteration, don't do anyghing with the character. 
Otherwise (less than 255 chars seen), continue to 
! Store bytes in the users buffer. 


Mwrn 


IF .STRINGFLAG 
THEN 
BEGIN 
IF _(-A.BUF_PTR LSA .A_BUF_END) 
CHSWCHAR (.C, .A_BUF_PTR) 
LSE 


WN Oo OOn 


IF (.A_BUF_PTR EQLA .A_BUF_END) THEN CCB CISBS$B_ERR_NO] = FORSK_LISIO_SYN; 
A_BUF_PTR = .A_BUF_PTR + 1; 
END; 


C = NEXTCHAR; 
END; 


END; ! End of main loop 


AME WN OS OD NAUES WN 0 ODNOAUEWN (OOO NOAU EAR (OO ONOUES WO a 


'+ 
Blank pad the string to a length of 255 bytes. 


STRINGFLAG 
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4 
Sep-19 FORRTL.SRCJFORUDFRL.B32;1 
cc -PAD_LENGTH GTR 0 Could be negative! 


as CHSFILL (%C' ", .PAD_LENGTH, .A_BUF_PTR); 


RETURN K_CHAR; 
END; 


a a a a a ce oe 


14 

! Right parenthesis. This can happen if a non-complex value was ended 
' with a right paren, since ‘)' is one of the possible value 
separators. ive an error. 


")") ; 
BEGIN 

CCB C1SB$B 
am K_NO 


ERR_NOJ = FORSK_LISIO_SYN; 


'¢ 
! It's an integer or real constant (1 hope). 
Gather the constant and return its type. 


COTHERWISE) : 
BEGIN 
CTYPE = GETFIELD (DSC); 


IF .DSC CDOSC$W_LENGTH] EQL 0 THEN RETURN K_NULL; 


END; 
TES; 


‘+ 

! Make spqe tol case for next (this) character being '*'. If so, 

! then this is a repeat count and must be an integer. If it isn't, 
;_the convert will fail. 


WN OS OONAVESWN $0 OONAUE WO OONOULS WN OOM 


i al 


IF THISCHAR EQLU 2C‘®' 
THE 
BEGIN 
IF OTSSCVT_TI_L (DSC, CONSBLOCK COJ) THEN RETURN K_INT; 
'¢ 
' If we get here, either the field wasn't an integer or it 


' got a conversion error. In either case, having a type of 
NULL will cause an error eventually. 


RETURN K_NULL; 
END; 
'¢ 

' Now that we have the LOG, INT, or REAL constant (as a string pointed 
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FORSSUDF _RL FORTRAN List-directed input, UDF Level 1S-se -1984 00:47:40 AX-11 Bliss-32 V4.0-74 Page 30 FOF 
1-025 GETCONST , 12-80-1384 9079558) FORRTL. RCIFORUDFRL -B3 31 s 3 1-¢ 
>; 1185 1244 ! to by DSC), it must be converted into binary. Use the hibrary 
> 1186 1245 ! inpu conyers ton routines to store the resultant value into 
3 yt : #8 CONSBLOCKLOJ. Return the type of constant seen as routine value. 
: 1189 1248 
: 1190 1249 RETURN 
; 1191 1250 BEGIN 
; 1136 1251 3 if 
3 119 1 26 IF NOT 
3 1194 1255 4 BEGIN 
3 1195 1254 4 3 | 
: 1198 1255 4 SELECTONE .ELEM_TYPE OF 3s] 
; 119 1 2g 4 SET 31 
3; 1198 125 4 
; 1199 1258 4 CDSCSK_DTYPE_FJ : 
; 1200 1259 4 
: 1201 1260 4 IF .CTYPE EQL K_LOG THEN OTSSCVT_TL_L ELSE OTSSCVT_T_F; 
3 1506 1261 4 
: 120 126¢ 4 CDSCSK_DTYPE_D) : 
; \SOe 12635 4 F 
> 1205 1264 4 IF .CTYPE EQL K_LOG THEN OTSSCVT_TL_L ELSE OTSSCVT_T_D; ; 
: 1206 1265 4 3 
3 1207 1566 4 CDOSCSK_DTYPE_G] : 3 
: 1208 1267 4 3 
; 1209 1268 4 IF .CTYPE EQL K_LOG THEN OTSSCVT_TL_L ELSE OTSSCVT_T_G; 
: 1210 1269 4 
: 1211 1270 4 CDSCSK_DTYPE_H] : 
; iste 1271 4 
3 121 127@ 4 IF .CTYPE EQL K_LOG THEN OTSSCVT_TL_L ELSE OTSS$CVT_T_H; ; 
3 1214 1273 4 $ 
3 1215 1274 4 COTHERWISE) : 3 
: 1216 1275 4 3 
3 1217 1276 4 CASE .CTYPE FROM K_LOG TO K_REAL OF 3 
: 1218 1277 4 SET 3 
3 1219 1278 4 g 
: 1220 1279 4 (K_LOG) : ; 
3 1221 1280 4 OTSSCVT_TL_L; 
3 1222 1281 4 
3: 1223 1¢8¢ 4 CK_INT] : 
: 1226 1283 4 OTSSCVT_TI_L; 
3: 1225 1284 4 
3: 1226 1285 4 CK_REAL) : 
> 1227 1286 4 OTS$CVT_T_D; 
3 \§ 8 nt 4 S F 
3: 1229 1288 4 
3; 12350 1289 4 TES 3 
3: 1231 1600 4 
3 1Se6 1291 4 END 5 
3; 123 1638 ; (DSC, CONSBLOCK (0)) g | 
3: 1234 133 THEN st 
3: 1235 1294 4 BEGIN e | 
3 1236 1295 4 CCB CISBSB_ERR_NO] = FORSK_INPCONERR; > I 
3: 1237 1 38 4 K_NULL | 
: 1$36 1297 4 3 | 
3 1239 1298 ELSE 
3: 1240 1299 CTYPE 
3; 1261 1300 
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FORSSUDF _RL FORTRAN List-directed input, UDF level 1o~se0- 138% 1 AX-11 Oi eta V4.0-74 Page 38 
1-025 LCL HANDLER 14-Sep-1984 :32:5 FORRTL.SRCJFORUDFRL.B32;1 (9) 
; 1324 1381 1 XSBTTL'LCL_HANDLER' 
: 1325 1 § 1 ROUTINE LCC_HANDLER ( ! Local handler for conversion routine 
: 1326 1 1 $1G_ARGS ' Signal Argument List 
: 1327 1384 1 MECR_ARGS ! Mechanism Argument List 
; 1328 1385 1 )= 
: 1329 1386 1 
: 1330 1387 1 !4+ 
: : 1 1358 : FUNCTIONAL DESCRIPTION: 
: } 5 1330 : Resignal Access Violation, otherwise call LIB$SIG_TO_RET. | 
: 1335 1 3 1 ! FORMAL PARAMETERS: 
: 1336 1395 1! 
3 1337 1394 1! S1G_ARGS 
; 1338 1399 1 i MECR_ARGS 
: 1339 1396 1! 
: 1340 1397 1°! IMPLICIT INPUTS: 
: 1341 1398 1! 
3 ak 1399 1! NONE 
3 134 1400 1! 
3: 1344 1401 1 =! IMPLICIT OUTPUTS: 
g 1aez 1006 1! 
3 1346 1405 1! NONE 
3 1347 1406 1! 
3; 1348 1405 1 ! COMPLETION CODES: 
3; 1349 1406 1! 
3 igey et : Will return any error other than Access Violation as a status 
3; 1352 1409 1 ! SIDE EFFECTS: 
; 1355 1410 1! : ; 
3; 1354 1411 1! Resignals Access Violation 
: 1355 eb 1} 
: 1356 141 1 !-- 
3; 1357 1414 «1 
; 1358 1415 § BEGIN 
: 1359 1416 MAP 
; 1360 1417 § SIG_ARGS : REF BLOCK C, BYTE); 
3; 1361 1418 '¢ 
3; 1362 1419 2 ! Check to see if the error is Access Violation. If it is, resignal so that it 
3; 1363 1420 2 ! is reported with the proper PC and PSL. Otherwise, return all other errors as 
; it re: 14s! § 1 statuses. 
: 1366 1498 2 IF .SIG_ARGS CCHFSL_S1G_NAME] NEQ SS$_ACCVIO THEN LIBS$SIG_TO_RET(SIG_ARGS, MECH ARGS); 
o 7° 
; 1368 1258 ; ! LIBSSIG_TO_RET wil! not return to this routine, If changes the error signal 
; 139? 1658 § to a return status and unwinds to the caller of the establisher of this handler. 
2 1374 1428 2 RETURN SS$_RESIGNAL 4 
3; 1372 1429 «1 END; ! Routine LCL_HANDLER 


al 0000 00000 LCL_HANDLER: | 
-WORD Save nothin : 1358 
50 04 aC DO 00002 MOVL  SIG_ARGS, R ; 142 
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FOR DF _R FORTRAN List-di ted i t, UDF Ll l .- - 4 247: AX-11 Bliss-32 V4.0-74 
est a =nt LCL_HANDLER pmsca™ ia th ~$60-138% 90:95:69 AUARTL SRE TFORUSE RY bg551 
0c 04 a0 bt so cuPL 4(RO), #12 
08 AC 9F 0000C PUSHAB MECH_ARGS 
04 AC 9F OOOOF PUSHAB SIG_ARGS 
000000006 00 02 FB 00012 CALLS #2, LIBS$SIG_TO_RET 
50 0918 8F 3C 00019 1$ MOVZWL #2328, RO 
04 O001E RET 


; Routine Size: 31 bytes, Routine Base: _FORSCODE + 0670 
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63551 


ORUDFRL. 


AX=11 Bliss-32 V4.0-74 
FORRTL.SRCIF 


“directed input, UDF Level 


FORTRAN List 
SKIPBLANKS 


FORSSUDF_RL 


1-025 


ee 
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" . Vv alt . 2 ae 
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oe Zz wtwteadceuor oe oe Ow @ ze *. w =x uo 1 2 
“wm oOo ww eet = BZQPw &e Fe 2 se Be Za av iv wow -_- 7 ww 
” _ ail v vw =z ws w —_— ww < 
- wi i r- ¢ — — onl anil Oo = ow ead 
4 v = ad | - a w w oO =x 
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oD mu o _ _ + Yv ” ‘ 
YO + ‘ 
Bm mm mm mm mmm tm tm rm tm mmm imi tmemememe 


UNI RNUKUIKUICUCUCUM MPI PIPYPPNPPNENOUCG 


DHT N OR. DHOOM VMTN OR. WHO UM TM OR. DHOOM TMNOR. DHOOM TNOR. OPO UMTINO 
PVE WF FT TT TT TTT AMMNMAANUNN OO ODOOOOOOORA.A.ARAPPBR. BR. OCD CODED CGE 
SF FFT FS TS SSS SSS ST STF IIT IIT IIIT II III III II IIIT 


LL CC Oe 


be Nt AP FEAR AR GED EN Ot FSFE EE ED 9 + pli hae ph SA Nth hh et 
P-P-P-P- PF ODD DD ADD DDD AOKAAOOAMARPOOCOC DOO COCO oe EK NININNINININININIO 
POV PIPPIN WF FST SFT TITS 


sc ec ce el eee ee ee eel el ee ee el ee el ee 


yet Oi lege ae Pigg & 
FORRTL.SRCJFORUDFRL.B32;1 


003C 00000 SKIPBLANKS: 


“directed input, UDF level 


RETURN (0); 


END; 


FORTRAN List 
SKIPBLANKS 


FORSSUDF_RL 
1-025 
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We eM VO HW NOOO LOO 
On OO Or OOK VK Or OOC Oe — 
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0 


B4 


_FORSCODE + 068F 


Routine Base: 


62 bytes, 


; Routine Size: 


L 


635.1 


e903¢ V4.0-74 
FORUDF RL 


Bl 
L.SRC 


oot 
FORRT 


-directed input, UDF level 


FORTRAN List 


DELIM 


RL 


FORSSUDF 
1-025 


BUF _PTR] + 1; 


points to first char to scan 
URSA 


if no commas or 2 commas (null field) 
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SSSI IFT FIIIIIIIIIIS 


ee cee cme ee cre ee ee ce ee ce ce ee ce ee ce ee Re ee 


SkIPBLANKS 
Ras 

B 

I 


Save nothin 
0 


: 


A 
2 
AF 
2c 


B0 


FORSSUDF_RL 
1-025 


Routine Size: 


Name 
_FORSCODE 


File 


-$255$DUA28:C 
=$255$0UA28: CFO 
~$255$DUA28: 


ponraae List-directed input, UDF level AX-11 Bliss-32 V4.0-7 


18- sep-19 4 2 98: $f: 24 


14-Sep-1984 2:5 FORRTL.SRC FORUDFRL .B35; 31 
¢ 13 00017 BEQL 1$ 
be S813 INCL R1 
50 1 1B 1$ MOVL R1, RO 
4 QOO1E RET 
50 D4 get 2$ CLRL RO 
04 00021 RET 
34 bytes, Routine Base: _FORSCODE + 06CD 
1334 1 END 
15 1 
1535 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
1775 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC.ALIGN(2) 
Library Statistics 
ooueseee Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
SYS. 16751 AG, EF L32;1 9776 14 0 581 00:01.0 
L.OBJIF ORLIB.L32;1 711 185 26 52 00:00.6 

FORRIC: OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 


COMMAND QUALIFIERS 


Page 43 
. (11) 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:FORUDFRL/OBJ=OBJ$:FORUDFRL MSRC$:FORUDFRL/UPDATE=(ENHS: Ff ORUDF RL) 


Size: 

Run Time: 

Elapsed Time: 

Lines/CPU Min: 

ee Nok Mii 
Used: 


1644 cgge,* 131 data bytes 
01:16.8 


n: 18885 
262 pages 


ery tue Complete 


1532 


— 
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om 
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Cc 
> 


| 1447 AH-BT13A-SE 


